Dim i, n As Integer
n = colores.Count
For i = 1 To n
    Debug.Print "-> " & colores.Item(i)
Next i
